home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / MATH / MAT / MATTEST.PAS < prev   
Pascal/Delphi Source File  |  1994-07-21  |  559b  |  46 lines
  1. PROGRAM EUGENE4;
  2. USES WINCRT,winprocs,wobjects,wintypes,
  3. SUSAN1,indigou2,matrix;
  4. VAR
  5. A,B,C,D,E,F: INTEGER;
  6. RATIO,S,G,H,L: REAL;
  7. z:char;
  8. q:array[1..20] of real;
  9. y:tmatrix;
  10. BEGIN
  11. WINDOWORG.X:=0;
  12. WINDOWORG.Y:=0;
  13. WINDOWSIZE.X:=800;
  14. WINDOWSIZE.Y:=600;
  15. SCREENSIZE.X:=250;
  16. SCREENSIZE.Y:=250;
  17. initwincrt;
  18. y.init;
  19. randomize;
  20. for a:=1 to 20 do
  21. begin
  22. for b:=1 to 21 do
  23. begin
  24. l:=(random(100))+1;
  25. y.load(a,b,l);
  26. end;
  27. end;
  28. y.solve(q,20);
  29. h:=y.check;
  30. writeln(h);
  31. for a:=1 to 20 do
  32. begin
  33. writeln(q[a]);
  34. end;
  35. y.done;
  36. END.
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.